00010	TOOT 0 10.9;
00100	P2 1 .03 .25;
00300	P3 1 C3 C6;
00400	P4 1 80 500;
00500	P5 .5 "F1"  .5 "F2";
00600	P6 F3; P7 F4; P8 F5; P9 F6;
00700	P10 .2; < LIMITING NUMBER FOR P2 RAND.
00800	P11 4 SUBN; <  CALL THE SUBROUTINE.  END RAND. AT 2".
00900	END;
01000	CLAR ; DUPL 1; END;
01100	BRIT ; DUPL 1; END;
01200	BUZZ ; DUPL 1; END;
01300	
01400	TOOT 4; P2 .15; P5 F1; P4 500; P11 0; END; <NO SUBR. CALLS
01500	CLAR 4; DUPL 1; END;
01600	BRIT 4; DUPL 1; END;
01700	BUZZ 4; DUPL 1; END;
01800	TOOT 6; P2 1 .03 .25; P5 .5 "F1"  .5 "F1";
01900	P4 1 80 500;
02000	P11 10.5 SUBN; END;
02100	CLAR 6; DUPL 1; END;
02200	BRIT 6; DUPL 1; END;
02300	BUZZ 6; DUPL 1; END;
02400	TOOT 10.5; P2 .5; P4 500; P5 F1; P11 0;END;
02500	CLAR 10.5; DUPL 1; END;
02600	BRIT 10.5; DUPL 1; END;
02700	BUZZ 10.5; DUPL 1; END;